home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / games / mutnt121.zip / TEAMCNVT.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-05-06  |  806b  |  73 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  806 bytes  11/17/122  02:22:50am
  3. '! Code Segment Size  :778 bytes
  4. '! Data Segment Size  :4783 bytes
  5. '! String Segment Size:28 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Type Type27
  9.         b0 As Byte
  10.         s1 As String*20
  11.         s21 As String*8
  12.         s29 As String*18
  13.         s47 As String*18
  14.         s65 As String*18
  15.         s83 As String*18
  16.         s101 As String*18
  17.         l119 As Long
  18.         l123(1 To 5) As Long
  19.         w143(1 To 10) As Word
  20.       End Type
  21.  
  22.       Type Type26
  23.         b0 As Byte
  24.         s1 As String*20
  25.         s21 As String*8
  26.         s29 As String*18
  27.         s47 As String*18
  28.         s65 As String*18
  29.         s83 As String*18
  30.         s101 As String*18
  31.         l119 As Long
  32.         l123(1 To 5) As Long
  33.         i143(1 To 5) As Integer
  34.       End Type
  35.  
  36.       Dim t26_4463 As Type26
  37.       Dim t27_4616 As Type27
  38.       Dim i4779 As Integer
  39.       Dim i4781 As Integer
  40.  
  41.       Dim l65518_ As Long
  42.       Dim i65522_ As Integer
  43.       Dim l65524_ As Long
  44.       Dim i65528_ As Integer
  45.       Dim l65530_ As Long
  46.       Dim i65534_ As Integer
  47.  
  48.       Open ProgPath + "teamfile.dat" For Random As 1 Len = 153 '! This value should probably be replaced with a "SizeOf" expression
  49.       Open ProgPath + "teamfile.new" For Random As 2 Len = 163 '! This value should probably be replaced with a "SizeOf" expression
  50.   114 For i4779 = 1 To LOF(1) Step 1
  51.         Get 1, i4779, t26_4463 '! 153 bytes
  52.         t27_4616.b0 = t26_4463.b0
  53.         t27_4616.s1 = t26_4463.s1
  54.         t27_4616.s21 = t26_4463.s21
  55.         t27_4616.s29 = t26_4463.s29
  56.         t27_4616.s47 = t26_4463.s47
  57.         t27_4616.s65 = t26_4463.s65
  58.         t27_4616.s83 = t26_4463.s83
  59.         t27_4616.s101 = t26_4463.s101
  60.         t27_4616.l119 = t26_4463.l119
  61.   368   For i4781 = 1 To 5 Step 1
  62.           t27_4616.l123(i4781) = t26_4463.l123(i4781)
  63.           t27_4616.w143(i4781) = t26_4463.i143(i4781)
  64.         Next
  65.   593
  66.   614   For i4781 = 6 To 10 Step 1
  67.           t27_4616.w143(i4781) = 0
  68.         Next
  69.   726   Put 2, i4779, t27_4616 '! 163 bytes
  70.       Next
  71.   764 Close 1
  72.       Close 2
  73.